data <- readr::read_csv(
"train.csv"
) |>
group_by(date) |>
summarise(sales = mean(sales)) |>
filter(year(date) == 2017) |>
mutate(
Semana = factor(week(date)),
Dia = factor(day(date)),
Mês = factor(month(date, label = TRUE)),
Ano = factor(year(date)),
Dias_Semana = factor(
stringr::str_to_title(weekdays(date)),
levels = c(
"Segunda", "Terça",
"Quarta", "Quinta",
"Sexta", "Sábado",
"Domingo"
)
)
)